home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / D-F / FSP-BD.sit / FSPC(SDNCheck) < prev   
Encoding:
Text File  |  1992-04-06  |  1.7 KB  |  54 lines  |  [TEXT/MSWD]
  1. *
  2. * Define pathname labels                                     *
  3. *
  4. *
  5. DEFINE "TRANSPATH" "SCSI:BBS:TRANS"
  6. DEFINE "TICPATH" "SCSI:BBS:TIC"
  7. *
  8. *
  9. **************************************************************
  10. * Define macro to change level for SDN files                 *
  11. *                                                            *
  12. * This macro loads the section, checks for files under 30    *
  13. * days and removes them, then changes clearance on remaing   *
  14. * files to level 10, then adds in the original section and   *
  15. * delete/dups and purge removes the latest entries. Sorts    *
  16. * and then saves the new file section.                       * 
  17. *                                                            *
  18. *This makes all SDN files over 30 days                       *
  19. * accessable only by paying users. Under 30 days are         *
  20. * available for download by level 0 users, as per SDN policy *
  21. **************************************************************
  22. CLEAR
  23. DEFINEMACRO "ChngLevl"
  24. LOAD "@1"
  25. SORT/DATE
  26. DELETE/AGE "<30"
  27. PURGE
  28. SETCLRNC "0" "10"
  29. ADD "@1"
  30. DELETE/DUPS
  31. PURGE
  32. SORT/TITLE
  33. SAVE "@1"
  34. ENDMACRO
  35. *
  36. ******************************************************
  37. * Change SDN levels                                  *
  38. * go do the macro                                    *
  39. ******************************************************
  40. ChngLevl "TICPATH:IBM:SDN:SDN_BUSI:SDN_BUSI"
  41. ChngLevl "TICPATH:IBM:SDN:SDN_COMM:SDN_COMM"
  42. ChngLevl "TICPATH:IBM:SDN:SDN_DATA:SDN_DATA"
  43. ChngLevl "TICPATH:IBM:SDN:SDN_GRAP:SDN_GRAP"
  44. ChngLevl "TICPATH:IBM:SDN:SDN_MISC:SDN_MISC"
  45. ChngLevl "TICPATH:IBM:SDN:SDN_UTIL:SDN_UTIL"
  46. ChngLevl "TICPATH:IBM:SDN:SDN_WORD:SDN_WORD"
  47. ChngLevl "TICPATH:IBM:SDN:SDN_OTHR:SDN_OTHR"
  48. ChngLevl "TICPATH:IBM:SDN:SDN_GAME:SDN_GAME"
  49. *
  50. CHAIN "SCSI:BBS:FSPC(Main)"
  51. *
  52. END
  53.  
  54.